Print[#]&/@(StringRepeat[" ",#[[1]]]<>StringRepeat["*",#[[2]]]&/@Transpose@{Floor[a=Flatten[-1+#{ 2, 4, 6, 8}&/@{1,2,3}];a/2]-a+20,a}~Join~{b={18,3},b});